*&---------------------------------------------------------------------*
*& Report  YDEMO_HANDLE_EVENTS_IN_FM_ALV
*&
*&---------------------------------------------------------------------*
 REPORT  YSU_HANDLE_EVENTS_IN_FM_ALV.
TYPE-POOLS SLIS.

 DATA : IT_EKKO    TYPE TABLE OF EKKO,
        it_events  TYPE SLIS_T_EVENT,
        WA_EVENTS  TYPE LINE OF SLIS_T_EVENT,
        IT_EKPO    TYPE TABLE OF EKPO,
        WA_EKKO    TYPE EKKO.

 START-OF-SELECTION.
 SELECT * INTO TABLE IT_EKKO FROM EKKO UP TO 15 ROWS.

*Fill the Events TAB
CLEAR WA_EVENTS.
      WA_EVENTS-NAME = 'TOP_OF_PAGE'.
      WA_EVENTS-FORM = 'PRINT_HEADER'.
APPEND WA_EVENTS TO IT_EVENTS.

CLEAR WA_EVENTS.
      WA_EVENTS-NAME = 'USER_COMMAND'.
      WA_EVENTS-FORM = 'HANDLE_USER_COMMAND'.
APPEND WA_EVENTS TO IT_EVENTS.

CLEAR WA_EVENTS.
      WA_EVENTS-NAME = 'PF_STATUS_SET'.
      WA_EVENTS-FORM = 'ATTACH_GUI_STATUS'.
APPEND WA_EVENTS TO IT_EVENTS.

 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
*    I_INTERFACE_CHECK                 = ' '
*    I_BYPASSING_BUFFER                = ' '
*    I_BUFFER_ACTIVE                   = ' '
    I_CALLBACK_PROGRAM                = sy-cprog
*    I_CALLBACK_PF_STATUS_SET          = ' '
*    I_CALLBACK_USER_COMMAND           = ' '
*    I_CALLBACK_TOP_OF_PAGE            = ' '
*    I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*    I_CALLBACK_HTML_END_OF_LIST       = ' '
    I_STRUCTURE_NAME                  = 'EKKO'
*    I_BACKGROUND_ID                   = ' '
*    I_GRID_TITLE                      =
*    I_GRID_SETTINGS                   =
*    IS_LAYOUT                         =
*    IT_FIELDCAT                       =
*    IT_EXCLUDING                      =
*    IT_SPECIAL_GROUPS                 =
*    IT_SORT                           =
*    IT_FILTER                         =
*    IS_SEL_HIDE                       =
*    I_DEFAULT                         = 'X'
*    I_SAVE                            = ' '
*    IS_VARIANT                        =
    IT_EVENTS                         = it_events
*    IT_EVENT_EXIT                     =
*    IS_PRINT                          =
*    IS_REPREP_ID                      =
*    I_SCREEN_START_COLUMN             = 0
*    I_SCREEN_START_LINE               = 0
*    I_SCREEN_END_COLUMN               = 0
*    I_SCREEN_END_LINE                 = 0
*    I_HTML_HEIGHT_TOP                 = 0
*    I_HTML_HEIGHT_END                 = 0
*    IT_ALV_GRAPHICS                   =
*    IT_HYPERLINK                      =
*    IT_ADD_FIELDCAT                   =
*    IT_EXCEPT_QINFO                   =
*    IR_SALV_FULLSCREEN_ADAPTER        =
*  IMPORTING
*    E_EXIT_CAUSED_BY_CALLER           =
*    ES_EXIT_CAUSED_BY_USER            =
   TABLES
     t_outtab                          = IT_EKKO
*  EXCEPTIONS
*    PROGRAM_ERROR                     = 1
*    OTHERS                            = 2
           .
 IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.



******FORM PRINT_HEADER
 FORM PRINT_HEADER.
DATA : IT_LIST TYPE SLIS_T_LISTHEADER,
       WA_LIST TYPE LINE OF SLIS_T_LISTHEADER.

CLEAR WA_LIST.
      WA_LIST-TYP  = 'H'. "Header Font
      WA_LIST-INFO = 'List Of Purchasing Docs'.
APPEND WA_LIST TO IT_LIST.

CLEAR WA_LIST.
      WA_LIST-TYP  = 'A'. "Action Font
      WA_LIST-INFO = 'List Of Purchasing Docs'.
APPEND WA_LIST TO IT_LIST.

CLEAR WA_LIST.
      WA_LIST-TYP  = 'S'. "Selection Font
      WA_LIST-INFO = 'List Of Purchasing Docs'.
APPEND WA_LIST TO IT_LIST.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = it_list
      I_LOGO                   = 'ALV_CLOUD'
*     I_END_OF_LIST_GRID       =
*     I_ALV_FORM               =
            .
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = it_list
      I_LOGO                   = 'ALV_CLOUD'
*     I_END_OF_LIST_GRID       =
*     I_ALV_FORM               =
            .


 ENDFORM.


**********FORM HANDLE_USER_COMMAND
FORM HANDLE_USER_COMMAND USING UCOMM        TYPE SY-UCOMM
                               SEL_LINE     TYPE SLIS_SELFIELD.
CASE UCOMM.

    WHEN 'DETAILED'.
      SELECT * INTO TABLE IT_EKPO FROM EKPO FOR ALL ENTRIES IN IT_EKKO
                                  WHERE EBELN = IT_EKKO-EBELN.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
*         I_INTERFACE_CHECK                 = ' '
*         I_BYPASSING_BUFFER                = ' '
*         I_BUFFER_ACTIVE                   = ' '
*         I_CALLBACK_PROGRAM                = ' '
*         I_CALLBACK_PF_STATUS_SET          = ' '
*         I_CALLBACK_USER_COMMAND           = ' '
*         I_CALLBACK_TOP_OF_PAGE            = ' '
*         I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*         I_CALLBACK_HTML_END_OF_LIST       = ' '
         I_STRUCTURE_NAME                  = 'EKPO'
*         I_BACKGROUND_ID                   = ' '
*         I_GRID_TITLE                      =
*         I_GRID_SETTINGS                   =
*         IS_LAYOUT                         =
*         IT_FIELDCAT                       =
*         IT_EXCLUDING                      =
*         IT_SPECIAL_GROUPS                 =
*         IT_SORT                           =
*         IT_FILTER                         =
*         IS_SEL_HIDE                       =
*         I_DEFAULT                         = 'X'
*         I_SAVE                            = ' '
*         IS_VARIANT                        =
*         IT_EVENTS                         =
*         IT_EVENT_EXIT                     =
*         IS_PRINT                          =
*         IS_REPREP_ID                      =
*         I_SCREEN_START_COLUMN             = 0
*         I_SCREEN_START_LINE               = 0
*         I_SCREEN_END_COLUMN               = 0
*         I_SCREEN_END_LINE                 = 0
*         I_HTML_HEIGHT_TOP                 = 0
*         I_HTML_HEIGHT_END                 = 0
*         IT_ALV_GRAPHICS                   =
*         IT_HYPERLINK                      =
*         IT_ADD_FIELDCAT                   =
*         IT_EXCEPT_QINFO                   =
*         IR_SALV_FULLSCREEN_ADAPTER        =
*       IMPORTING
*         E_EXIT_CAUSED_BY_CALLER           =
*         ES_EXIT_CAUSED_BY_USER            =
        TABLES
          t_outtab                          = IT_EKPO
*       EXCEPTIONS
*         PROGRAM_ERROR                     = 1
*         OTHERS                            = 2
                .
      IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.

    WHEN '&IC1'. "Double Click
      READ TABLE IT_EKKO INTO WA_EKKO INDEX SEL_LINE-TABINDEX.

      SELECT * INTO TABLE IT_EKPO FROM EKPO WHERE EBELN = WA_EKKO-EBELN.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
*         I_INTERFACE_CHECK                 = ' '
*         I_BYPASSING_BUFFER                = ' '
*         I_BUFFER_ACTIVE                   = ' '
*         I_CALLBACK_PROGRAM                = ' '
*         I_CALLBACK_PF_STATUS_SET          = ' '
*         I_CALLBACK_USER_COMMAND           = ' '
*         I_CALLBACK_TOP_OF_PAGE            = ' '
*         I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*         I_CALLBACK_HTML_END_OF_LIST       = ' '
         I_STRUCTURE_NAME                  = 'EKPO'
*         I_BACKGROUND_ID                   = ' '
*         I_GRID_TITLE                      =
*         I_GRID_SETTINGS                   =
*         IS_LAYOUT                         =
*         IT_FIELDCAT                       =
*         IT_EXCLUDING                      =
*         IT_SPECIAL_GROUPS                 =
*         IT_SORT                           =
*         IT_FILTER                         =
*         IS_SEL_HIDE                       =
*         I_DEFAULT                         = 'X'
*         I_SAVE                            = ' '
*         IS_VARIANT                        =
*         IT_EVENTS                         =
*         IT_EVENT_EXIT                     =
*         IS_PRINT                          =
*         IS_REPREP_ID                      =
*         I_SCREEN_START_COLUMN             = 0
*         I_SCREEN_START_LINE               = 0
*         I_SCREEN_END_COLUMN               = 0
*         I_SCREEN_END_LINE                 = 0
*         I_HTML_HEIGHT_TOP                 = 0
*         I_HTML_HEIGHT_END                 = 0
*         IT_ALV_GRAPHICS                   =
*         IT_HYPERLINK                      =
*         IT_ADD_FIELDCAT                   =
*         IT_EXCEPT_QINFO                   =
*         IR_SALV_FULLSCREEN_ADAPTER        =
*       IMPORTING
*         E_EXIT_CAUSED_BY_CALLER           =
*         ES_EXIT_CAUSED_BY_USER            =
        TABLES
          t_outtab                          = IT_EKPO
*       EXCEPTIONS
*         PROGRAM_ERROR                     = 1
*         OTHERS                            = 2
                .
      IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.

ENDCASE.
ENDFORM.

*****FORM ATTACH_GUI_STATUS
FORM ATTACH_GUI_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
DATA WA TYPE LINE OF SLIS_T_EXTAB.

     WA-FCODE = '&GRAPH'.
APPEND WA TO RT_EXTAB.

     SET PF-STATUS 'ZSTATUS' EXCLUDING RT_EXTAB.

*Note : RT_EXTAB is an Internal Table with the List Of Fcodes of the Buttons to be
*       Excluded at Runtime
ENDFORM.